home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Rechnungsübersicht_BW1.inbpri < prev    next >
Text File  |  1999-03-27  |  9KB  |  452 lines
  1. 3$VER: Rechnungsübersicht Brutto Währung1 1.08 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.08
  6. %%Title: (MT-RechnungIII - Rechnungsübersicht Währung1 Brutto)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89. /W 1 def
  90. /N 0 def
  91. /B 1 def
  92. /M 0 def
  93.  
  94. %% Definition der Überschrift
  95. /Ueberschrift
  96. {
  97.     /BoxX1 DokumentRandX def
  98.     /BoxX2 486 def
  99.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  100.     /BoxY2 Times10Zeile Times10Zeile add def
  101.  
  102.     0.9 setgray
  103.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  104.     0.0 setgray
  105.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  106.  
  107.     DokumentRandX 3 add DokumentRandY moveto
  108.     (RechNr.) show
  109.  
  110.     DokumentRandX 100 add DokumentRandY moveto
  111.     (Datum) show
  112.  
  113.     DokumentRandX 250 add DokumentRandY moveto
  114.     (Lieferant) show
  115.  
  116.     DokumentRandX 300 add DokumentRandY moveto
  117.     (Besteller) show
  118.  
  119.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  120.  
  121.     DokumentRandX 50 add DokumentRandY moveto
  122.     (ArtikelNr) show
  123.  
  124.     DokumentRandX DokumentRandY moveto
  125.     (Anzahl) dup stringwidth
  126.     pop 150 exch sub
  127.     DokumentRandX add DokumentRandY moveto show
  128.  
  129.     DokumentRandX 160 add DokumentRandY moveto
  130.     (Einheit) show
  131.  
  132.     DokumentRandX DokumentRandY moveto
  133.     (MWSt) dup stringwidth
  134.     pop 250 exch sub
  135.     DokumentRandX add DokumentRandY moveto show
  136.  
  137.     DokumentRandX DokumentRandY moveto
  138.     (Einzelpreis) dup stringwidth
  139.     pop 325 exch sub
  140.     DokumentRandX add DokumentRandY moveto show
  141.  
  142.     DokumentRandX DokumentRandY moveto
  143.     (Positionssumme) dup stringwidth
  144.     pop 400 exch sub
  145.     DokumentRandX add DokumentRandY moveto show
  146.  
  147.     DokumentRandX DokumentRandY moveto
  148.     (Endsumme) dup stringwidth
  149.     pop 480 exch sub
  150.     DokumentRandX add DokumentRandY moveto show
  151.  
  152.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  153.  
  154. } def
  155.  
  156. %% Ausgab der Kopfdaten
  157.  
  158. Times24 setfont
  159.  
  160. DokumentRandX DokumentRandY moveto
  161. (Eingangsrechnungen \(Brutto\)) dup stringwidth pop
  162. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  163.  
  164. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  165.  
  166. Times10 setfont
  167.  
  168. Ueberschrift
  169.  
  170. /ERechnungElemente ERechnungTabelle length def
  171. /ERechnungPosition 0 def
  172.  
  173. ERechnungTabelle
  174. {
  175.  
  176.     ERechnungPosition 1 add /ERechnungPosition exch def
  177.  
  178.     ERechnungElemente ERechnungPosition eq
  179.     {
  180.         /Zeilen 2 def
  181.         /pos exch def
  182.         pos 21 get
  183.         {
  184.             {
  185.                 Zeilen 1 add /Zeilen exch def
  186.             } if
  187.         } forall
  188.  
  189.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  190.         {
  191.             DokumentRandX 450 add 50 moveto
  192.             (Seite: ) show
  193.             Seite SeitenNr cvs show
  194.             showpage
  195.  
  196.             /DokumentRandY DokumentRandYOriginal def
  197.             Ueberschrift
  198.             Seite 1 add /Seite exch def
  199.         } if
  200.  
  201.         DokumentRandX 3 add DokumentRandY moveto
  202.         (Gesamtsumme \(Netto\):) show
  203.         DokumentRandX DokumentRandY moveto
  204.         pos 16 get N get dup stringwidth
  205.         pop 480 exch sub
  206.         DokumentRandX add DokumentRandY moveto
  207.         show
  208.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  209.  
  210.         /Zaehler 0 def
  211.         pos 21 get
  212.         {
  213.             {
  214.                 DokumentRandX 3 add DokumentRandY moveto
  215.                 (Mehrwertsteuer \() show
  216.                 pos 20 get Zaehler get show
  217.                 (%, Netto: ) show
  218.                 pos 27 get Zaehler get N get show
  219.                 (, Brutto: ) show
  220.                 pos 27 get Zaehler get B get show
  221.                 (\):) show
  222.  
  223.                 DokumentRandX DokumentRandY moveto
  224.                 pos 24 get Zaehler get M get dup stringwidth
  225.                 pop 480 exch sub
  226.                 DokumentRandX add DokumentRandY moveto
  227.                 show
  228.  
  229.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  230.             } if
  231.  
  232.             Zaehler 1 add /Zaehler exch def
  233.         } forall
  234.  
  235.         DokumentRandX 3 add DokumentRandY moveto
  236.         (Gesamtsumme \(Brutto\):) show
  237.         DokumentRandX DokumentRandY moveto
  238.         pos 16 get B get dup stringwidth
  239.         pop 480 exch sub
  240.         DokumentRandX add DokumentRandY moveto
  241.         show
  242.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  243.  
  244.     }
  245.     {
  246.         /Zeilen 3 def
  247.         /pos exch def
  248.         pos 20 get
  249.         {
  250.             Zeilen 1 add /Zeilen exch def
  251.         } if
  252.  
  253.         pos 28 get
  254.         {
  255.             Zeilen 1 add /Zeilen exch def
  256.         } if
  257.  
  258.         pos 58 get
  259.         {
  260.             0 ne
  261.             {
  262.                 Zeilen 1 add /Zeilen exch def
  263.             } if
  264.         } forall
  265.  
  266.         pos 63 get
  267.         {
  268.             Zeilen 1 add /Zeilen exch def
  269.             1 get 11 get
  270.             {
  271.                 0 ne
  272.                 {
  273.                     Zeilen 1 add /Zeilen exch def
  274.                 } if
  275.             } forall
  276.         } forall
  277.  
  278.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  279.         {
  280.             DokumentRandX 450 add 50 moveto
  281.             (Seite: ) show
  282.             Seite SeitenNr cvs show
  283.             showpage
  284.  
  285.             /DokumentRandY DokumentRandYOriginal def
  286.             Ueberschrift
  287.             Seite 1 add /Seite exch def
  288.         } if
  289.  
  290.         DokumentRandX 3 add DokumentRandY moveto
  291.         pos 4 get () gt
  292.         {
  293.             pos 4 get show
  294.         }
  295.         {
  296.             pos 0 get show
  297.         } ifelse
  298.  
  299.         DokumentRandX 100 add DokumentRandY moveto
  300.         pos 15 get 0 get show
  301.  
  302.         DokumentRandX 250 add DokumentRandY moveto
  303.         pos 3 get show
  304.    
  305.         DokumentRandX 300 add DokumentRandY moveto
  306.         pos 2 get show
  307.    
  308.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  309.  
  310.         pos 63 get
  311.         {
  312.             /art exch def
  313.  
  314.             DokumentRandX 50 add DokumentRandY moveto
  315.             art 1 get 1 get show
  316.  
  317.             DokumentRandX DokumentRandY moveto
  318.             art 1 get 2 get dup stringwidth
  319.             pop 150 exch sub
  320.             DokumentRandX add DokumentRandY moveto
  321.             show
  322.  
  323.             DokumentRandX 160 add DokumentRandY moveto
  324.             art 0 get 5 get show
  325.  
  326.             DokumentRandX DokumentRandY moveto
  327.             art 1 get 8 get dup stringwidth
  328.             pop 250 exch sub
  329.             DokumentRandX add DokumentRandY moveto
  330.             show
  331.  
  332.             DokumentRandX DokumentRandY moveto
  333.             art 1 get 3 get W get dup stringwidth
  334.             pop 325 exch sub
  335.             DokumentRandX add DokumentRandY moveto
  336.             show
  337.  
  338.             /Zeilen 0 def
  339.             art 1 get 11 get
  340.             {
  341.                 0 ne
  342.                 {
  343.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  344.  
  345.                     DokumentRandX 100 add DokumentRandY moveto
  346.                     art 1 get 13 get Zeilen get show
  347.  
  348.                     DokumentRandX DokumentRandY moveto
  349.                     art 1 get 12 get Zeilen get W get dup stringwidth
  350.                     pop 250 exch sub
  351.                     DokumentRandX add DokumentRandY moveto
  352.                     show
  353.  
  354.                     DokumentRandX DokumentRandY moveto
  355.                     art 1 get 15 get Zeilen get W get dup stringwidth
  356.                     pop 325 exch sub
  357.                     DokumentRandX add DokumentRandY moveto
  358.                     show
  359.                 } if
  360.                 Zeilen 1 add /Zeilen exch def
  361.             } forall
  362.  
  363.             DokumentRandX DokumentRandY moveto
  364.             art 1 get 6 get W get dup stringwidth
  365.             pop 400 exch sub
  366.             DokumentRandX add DokumentRandY moveto
  367.             show
  368.  
  369.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  370.  
  371.         } forall
  372.  
  373.         /Zeilen 0 def
  374.         pos 58 get
  375.         {
  376.             0 ne
  377.             {
  378.                 DokumentRandX 50 add DokumentRandY moveto
  379.                 pos 60 get Zeilen get show
  380.         
  381.                 DokumentRandX DokumentRandY moveto
  382.                 pos 59 get Zeilen get W get dup stringwidth
  383.                 pop 325 exch sub
  384.                 DokumentRandX add DokumentRandY moveto
  385.                 show
  386.  
  387.                 DokumentRandX DokumentRandY moveto
  388.                 pos 62 get Zeilen get W get dup strin